perm filename OMULTL.UNF[QLA,LSP] blob
sn#742377 filedate 1984-02-08 generic text, type T, neo UTF8
'(THIS IS THE UNFASL FOR ((DSK (LSP RPG)) MULTL /21))
'(ASSEMBLED BY FASLAP /392)
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON FEBRUARY 8, 1984, AT 3:47 PM
;Loading DEFSTRUCT 280
'QUEUE
(COMMENT **FASL** 0. (LAP QUEUE-HEAD SUBR))
(COMMENT **FASL** 3. (LAP QUEUE-TAIL SUBR))
(COMMENT **FASL** 6. (LAP NEXT-QUEUE SUBR))
(COMMENT **FASL** 8. (LAP ADD-QUEUE SUBR))
(COMMENT **FASL** 32. (LAP GET-QUEUE SUBR))
(COMMENT **FASL** 44. (LAP REMOVE-QUEUE SUBR))
(COMMENT **FASL** 107. (LAP M-FLUSH-TOP-ARG-STACK SUBR))
'MACHINE
'PROCESSOR
'VALUE-DEST
'JOB
'RETURN-MESSAGE
'JOB-CLOSURE
(COMMENT **FASL** 113. (LAP M-RESTORE-VALUEP SUBR))
'UNWIND-PROTECT-WAITER
'UNWIND-PROTECT-CLEANUP
'CATCH-RECORD
(COMMENT **FASL** 120. (LAP KILL-ALL-CLOSURE-JOBS SUBR))
(COMMENT **FASL** 176. (LAP DELETE-EM-ALL SUBR))
(COMMENT **FASL** 222. (LAP CURRENT-LOAD SUBR))
'METER
(COMMENT **FASL** 246. (LAP REPORT SUBR))
(COMMENT **FASL** 420. (LAP RECENT-VAR-MEMQ SUBR))
(COMMENT **FASL** 442. (LAP REPORT-LOAD-HISTORY SUBR))
(COMMENT **FASL** 534. (LAP ROUND-FUN SUBR))
(COMMENT **FASL** 546. (LAP STANDARD-DEVIATION SUBR))
(COMMENT **FASL** 586. (LAP MULTI-PROCESS SUBR))
(COMMENT **FASL** 740. (LAP PROCESS-JOB SUBR))
(COMMENT **FASL** 1014. (LAP RETURN-MESSAGE SUBR))
(COMMENT **FASL** 1061. (LAP MULTI-SCHEDULE SUBR))
(COMMENT **FASL** 1077. (LAP MULTI-SCHEDULE-ONE SUBR))
(COMMENT **FASL** 1135. (LAP RUN SUBR))
(COMMENT **FASL** 1188. (LAP NOW SUBR))
(COMMENT **FASL** 1190. (LAP M-ASSIGN SUBR))
(COMMENT **FASL** 1265. (LAP M-LOOKUP-1 SUBR))
(COMMENT **FASL** 1289. (LAP M-ADD-ENV SUBR))
(COMMENT **FASL** 1294. (LAP M-ADD-ENV-1 SUBR))
(COMMENT **FASL** 1298. (LAP M-SYMEVAL SUBR))
(COMMENT **FASL** 1338. (LAP M-SYMEVAL-1 SUBR))
(COMMENT **FASL** 1342. (LAP M-SYMEVAL-2 SUBR))
(COMMENT **FASL** 1346. (LAP M-EVAL SUBR))
(COMMENT **FASL** 2163. (LAP M-EVAL-2 SUBR))
(COMMENT **FASL** 2174. (LAP M-PROGNIFY SUBR))
(COMMENT **FASL** 2183. (LAP M-FUNCALL SUBR))
(COMMENT **FASL** 2217. (LAP M-EVAL-LABELS SUBR))
(COMMENT **FASL** 2297. (LAP M-QLAMBDA SUBR))
(COMMENT **FASL** 2354. (LAP M-RESTORE-LOCK SUBR))
(COMMENT **FASL** 2374. (LAP M-SET-LOCK SUBR))
(COMMENT **FASL** 2379. (LAP M-EXPAND-CASEQ SUBR))
(COMMENT **FASL** 2458. (LAP M-APPLY SUBR))
(COMMENT **FASL** 2541. (LAP M-APPLY2 SUBR))
(COMMENT **FASL** 2554. (LAP M-APPLY1 SUBR))
(COMMENT **FASL** 2989. (LAP M-LISP-CALL SUBR))
(COMMENT **FASL** 3027. (LAP M-RESTORE-ENV SUBR))
(COMMENT **FASL** 3034. (LAP M-RESTORE-CATCH-THREAD SUBR))
(COMMENT **FASL** 3041. (LAP M-RESTORE-CATCH-THREAD-1 SUBR))
(COMMENT **FASL** 3048. (LAP M-STASH-ARG SUBR))
(COMMENT **FASL** 3057. (LAP M-SLEEP SUBR))
(COMMENT **FASL** 3064. (LAP M-DELAY SUBR))
(COMMENT **FASL** 3090. (LAP M-ADD-CATCH-THREADS SUBR))
(COMMENT **FASL** 3109. (LAP M-ADD-UNWIND-PROTECTS SUBR))
(COMMENT **FASL** 3161. (LAP M-EVCOND SUBR))
(COMMENT **FASL** 3238. (LAP M-EVOR SUBR))
(COMMENT **FASL** 3281. (LAP M-EVAND SUBR))
(COMMENT **FASL** 3324. (LAP M-EVNOT SUBR))
(COMMENT **FASL** 3336. (LAP M-EVPROGN SUBR))
(COMMENT **FASL** 3371. (LAP M-EVPROGN-1 SUBR))
(COMMENT **FASL** 3407. (LAP M-EVSETQ SUBR))
(COMMENT **FASL** 3453. (LAP M-ASSIGN-1 SUBR))
(COMMENT **FASL** 3460. (LAP M-ASSIGN-2 SUBR))
(COMMENT **FASL** 3468. (LAP M-EVQLAMBDA SUBR))
(COMMENT **FASL** 3572. (LAP M-EAGER-EVQLAMBDA SUBR))
(COMMENT **FASL** 3706. (LAP M-QLAMBDA-APPLY SUBR))
(COMMENT **FASL** 3939. (LAP M-WAIT-FOR-MESSAGES SUBR))
(COMMENT **FASL** 4058. (LAP M-WAIT-CLOSURE SUBR))
(COMMENT **FASL** 4125. (LAP M-NULL-WAIT SUBR))
(COMMENT **FASL** 4127. (LAP M-CLOSURE-WAITER SUBR))
(COMMENT **FASL** 4181. (LAP M-QCATCH-WAITER SUBR))
(COMMENT **FASL** 4199. (LAP M-WAIT-FOR-EAGER-VALUE SUBR))
(COMMENT **FASL** 4207. (LAP M-WAIT-FOR-EAGER-CELL SUBR))
(COMMENT **FASL** 4219. (LAP M-WAIT-VALUE-DEST SUBR))
(COMMENT **FASL** 4229. (LAP SUSPEND-PROCESS LSUBR))
(COMMENT **FASL** 4292. (LAP RESUME-PROCESS SUBR))
(COMMENT **FASL** 4329. (LAP NO-RETURN-VALUE SUBR))
(COMMENT **FASL** 4334. (LAP M-UNWIND-PROTECT-SIGNAL-DONE SUBR))
(COMMENT **FASL** 4346. (LAP M-UNWIND-PROTECT-WAITER SUBR))
(COMMENT **FASL** 4382. (LAP M-CATCH SUBR))
(COMMENT **FASL** 4412. (LAP M-QCATCH SUBR))
(COMMENT **FASL** 4424. (LAP M-THROW SUBR))
(COMMENT **FASL** 4566. (LAP M-DO-UNWIND-PROTECT-CLEANUPS SUBR))
(COMMENT **FASL** 4670. (LAP M-DO-ASSIGN SUBR))
(COMMENT **FASL** 4699. (LAP M-DO-ASSIGN-1 SUBR))
(COMMENT **FASL** 4728. (LAP M-DO-TEST SUBR))
(COMMENT **FASL** 4774. (LAP M-DO-STEP SUBR))
(COMMENT **FASL** 4802. (LAP M-DO-STEP-1 SUBR))
(COMMENT **FASL** 4830. (LAP M-DEFUN FSUBR))
(COMMENT **FASL** 4851. (LAP M-QDEFUN FSUBR))
(COMMENT **FASL** 4879. (LAP ALLOCATE SUBR))
(COMMENT **FASL** 4901. (LAP DE-ALLOCATE SUBR))
(COMMENT **FASL** 4943. (LAP AREF SUBR))
(COMMENT **FASL** 4950. (LAP ASET SUBR))
(COMMENT **FASL** 4961. (LAP MAKE-ARRAY SUBR))
(COMMENT **FASL** 4972. (LAP ≤ SUBR))
(COMMENT **FASL** 4981. (LAP ≥ SUBR))
(COMMENT **FASL** 4990. (LAP |SPAWN MACRO| SUBR))
(COMMENT **FASL** 5022. (LAP |WAIT MACRO| SUBR))
(COMMENT **FASL** 5047. (LAP |NO-WAIT MACRO| SUBR))
(COMMENT **FASL** 5073. (LAP |QLET MACRO| SUBR))
(COMMENT **FASL** 5145. (LAP MAKE-MULTI-PROCESSOR SUBR))
(COMMENT **FASL** 5188. (LAP EVAL-FORMS LSUBR))
(COMMENT **FASL** 5251. (LAP EVAL-FORM SUBR))
(COMMENT **FASL** 5295. (LAP PRINT-JOBS SUBR))
(COMMENT **FASL** 5359. (LAP MEVAL SUBR))
(COMMENT **FASL** 5401. (LAP TOPLEVEL SUBR))
(COMMENT **FASL** 5455. (LAP STARTUP LSUBR))
(COMMENT **FASL** TOTAL = 5501. WORDS)